Great Canadian Scientists/GCS_CD.iso/mac/PC/viewer.exe/viewer.DXR/00015_Main Scripts.ls

Text File | 1996-09-17 | 572 b | 20 lines

on startMovie
  repeat with count = 2 to 12
    resetField(count, 18, "Plain", "Helvetica")
  end repeat
  if the machineType = 256 then
    openXLib(the pathName & "GCSDATA\OTHER\FILEIO.DLL")
  end if
end

on resetField theFieldID, fSize, fFace, fFont
  set the text of cast integer(theFieldID) to " "
  set the textSize of member integer(theFieldID) to integer(fSize)
  set the textStyle of member integer(theFieldID) to string(fFace)
  set the textFont of member integer(theFieldID) to string(fFont)
  set the text of cast integer(theFieldID) to EMPTY
end

on idle
end